﻿Public Class frmMessageFail
    Public Sub New(ByVal text As String, ByVal title As String)

        ' This call is required by the designer.
        InitializeComponent()
        lblmessage.Text = text
        lbltitle.Text = title
        ' Add any initialization after the InitializeComponent() call.

    End Sub

    Private Sub texttitle_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles texttitle.KeyDown
        If e.KeyCode = Keys.Escape Or e.KeyCode = Keys.Enter Then
            Me.Close()
        End If
    End Sub

    Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
        Me.Close()
    End Sub
End Class